home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 55
/
64er_Magazin_Sonderheft_55_19xx_Markt__Technik_de_Side_A.d64
/
h_m wandler bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
518b
|
22 lines
100 rem
110 rem programm zur umwandlung von
120 rem hires bildern (startadr.$2000)
130 rem in koala-painter bilder.
140 rem
150 if q=0 then q=1:load "h/m wandler c000",8,1
160 if a=0 then input "name des hires bildes ";hn$
170 if a=0 then a=1:load hn$,8,1
180 :
190 sys 49152
200 input "vordergrundfarbcode ";f1
210 input "hintergrundfarbcode ";f2
220 :
230 for t=8192+9000 to 8192+9999:poket,f2:next
240 poke 8192+10000,f1
250 :
260 poke 46,71:poke 45,239:clr
270 input "name des koala-bildes ";kn$
280 kn$="[129]pic "+left$(kn$+" ",10)
290 poke 44,32:poke 43,0
300 save kn$,8,1:sys 64738